Intro

I liked the Financial Times plots for tracking the evolution of COVID-19 (https://www.ft.com/coronavirus-latest), but then they changed to different plots. So here I am more-or-less reproducing those plots (and adding some others).

Grab data

I’d like to find an easy source of online data that breaks down the US by state, but for now just use the country data from ourworldindata.org:

cases = read.csv("https://covid.ourworldindata.org/data/ecdc/total_cases.csv",
                 stringsAsFactors=FALSE)
cases$date = as.POSIXct(cases$date)

deaths = read.csv("https://covid.ourworldindata.org/data/ecdc/total_deaths.csv",
                  stringsAsFactors=FALSE)
deaths$date = as.POSIXct(deaths$date)

Cumulative deaths and cases

Cumulative deaths

Log-scale

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Linear-scale

Cumulative cases

Log-scale

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)

Linear-scale

Naive case fatality rates

Log-scale

Linear-scale

Incremental (daily) deaths and cases

Daily deaths

Log-scale

Linear-scale

Daily new cases

Log-scale

Linear-scale

Smoothed daily deaths

Log-scale

Linear scale

Smoothed daily new cases

Log-scale

Linear scale